home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
TPUG - Toronto PET Users Group
/
TPUG Users Group CD
/
TPUG Users Group CD.iso
/
COMAL
/
B-Book Series
/
(k)b3.d64
/
program57
< prev
next >
Wrap
Text File
|
2007-02-28
|
385b
|
19 lines
0010 // PROGRAM 57
0020 //
0030 // COMELY KATE
0040 //
0050 // TO PRINT A LIST IN REVERSE ORDER
0060 //
0070 ZONE 2
0080 DIM LISST(20)
0090 FOR COUNT#:=1 TO 20 DO
0100 READ LISST(COUNT#)
0110 ENDFOR COUNT#
0120 //
0130 FOR COUNT#:=20 TO 1 STEP -1 DO
0140 PRINT LISST(COUNT#);
0150 ENDFOR COUNT#
0160 DATA 12,54,78,67,56,45,48,98,34,34
0170 DATA 87,76,65,84,94,89,34,56,77,88
0180 END